﻿<Serializable()> _
Public Class Eadicional

#Region "           Atributos                       "
    Private _idProyecto As Int32
    Private _idEtapa As Int32
    Private _idCliente As Int32
    Private _idEdiMzn As Int32
    Private _idAdicional As Int32
    Private _idConceptoAdicional As Int32
    Private _descConceptoAdicional As String
    Private _idUndInmob As Int32
    Private _EunidInmobiliarias As EunidInmobiliarias
    Private _montoTotalAdiconal As Decimal
    Private _idMoneda As Int32
    Private _descMoneda As String
    Private _nroCuotas As Int32
    Private _fchSolicitada As String
    Private _fchAprobada As String
    Private _nroPresupuesto As String
    Private _dcmntoEscaneado As String
    Private _descripcion As String
    Private _idEdificio As Int32
    Private _nomEdiMzn As String
    Private _idModelo As Int32
    Private _nomModelo As String
    Private _descUndInmob As String
    Private _idTpoInmueble As Int32
    Private _descTpoInmueble As String
    Private _nroInmueble As String
    Private _idUsuario As Int32
#End Region

#Region "           Propiedades                     "
    Public Property idProyecto() As Int32
        Get
            Return _idProyecto
        End Get
        Set(ByVal value As Int32)
            _idProyecto = value
        End Set
    End Property
    Public Property idEtapa() As Int32
        Get
            Return _idEtapa
        End Get
        Set(ByVal value As Int32)
            _idEtapa = value
        End Set
    End Property
    Public Property idCliente() As Int32
        Get
            Return _idCliente
        End Get
        Set(ByVal value As Int32)
            _idCliente = value
        End Set
    End Property
    Public Property idEdiMzn() As Int32
        Get
            Return _idEdiMzn
        End Get
        Set(ByVal value As Int32)
            _idEdiMzn = value
        End Set
    End Property
    Public Property idAdicional() As Int32
        Get
            Return _idAdicional
        End Get
        Set(ByVal value As Int32)
            _idAdicional = value
        End Set
    End Property
    Public Property descConceptoAdicional() As String
        Get
            Return _descConceptoAdicional
        End Get
        Set(ByVal value As String)
            _descConceptoAdicional = value
        End Set
    End Property
    Public Property idConceptoAdicional() As Int32
        Get
            Return _idConceptoAdicional
        End Get
        Set(ByVal value As Int32)
            _idConceptoAdicional = value
        End Set
    End Property
    Public Property idUndInmob() As Int32
        Get
            Return _idUndInmob
        End Get
        Set(ByVal value As Int32)
            _idUndInmob = value
        End Set
    End Property
    Public Property EunidInmobiliarias() As EunidInmobiliarias
        Get
            Return _EunidInmobiliarias
        End Get
        Set(ByVal value As EunidInmobiliarias)
            _EunidInmobiliarias = value
        End Set
    End Property
    Public Property montoTotalAdiconal() As Decimal
        Get
            Return _montoTotalAdiconal
        End Get
        Set(ByVal value As Decimal)
            _montoTotalAdiconal = value
        End Set
    End Property
    Public Property idMoneda() As Int32
        Get
            Return _idMoneda
        End Get
        Set(ByVal value As Int32)
            _idMoneda = value
        End Set
    End Property
    Public Property descMoneda() As String
        Get
            Return _descMoneda
        End Get
        Set(ByVal value As String)
            _descMoneda = value
        End Set
    End Property
    Public Property nroCuotas() As Int32
        Get
            Return _nroCuotas
        End Get
        Set(ByVal value As Int32)
            _nroCuotas = value
        End Set
    End Property
    Public Property fchSolicitada() As String
        Get
            Return _fchSolicitada
        End Get
        Set(ByVal value As String)
            _fchSolicitada = value
        End Set
    End Property
    Public Property fchAprobada() As String
        Get
            Return _fchAprobada
        End Get
        Set(ByVal value As String)
            _fchAprobada = value
        End Set
    End Property
    Public Property nroPresupuesto() As String
        Get
            Return _nroPresupuesto
        End Get
        Set(ByVal value As String)
            _nroPresupuesto = value
        End Set
    End Property
    Public Property dcmntoEscaneado() As String
        Get
            Return _dcmntoEscaneado
        End Get
        Set(ByVal value As String)
            _dcmntoEscaneado = value
        End Set
    End Property
    Public Property descripcion() As String
        Get
            Return _descripcion
        End Get
        Set(ByVal value As String)
            _descripcion = value
        End Set
    End Property
    Public Property idEdificio() As Int32
        Get
            Return _idEdificio
        End Get
        Set(ByVal value As Int32)
            _idEdificio = value
        End Set
    End Property
    Public Property nomEdiMzn() As String
        Get
            Return _nomEdiMzn
        End Get
        Set(ByVal value As String)
            _nomEdiMzn = value
        End Set
    End Property
    Public Property idModelo() As Int32
        Get
            Return _idModelo
        End Get
        Set(ByVal value As Int32)
            _idModelo = value
        End Set
    End Property
    Public Property nomModelo() As String
        Get
            Return _nomModelo
        End Get
        Set(ByVal value As String)
            _nomModelo = value
        End Set
    End Property
    Public Property descUndInmob() As String
        Get
            Return _descUndInmob
        End Get
        Set(ByVal value As String)
            _descUndInmob = value
        End Set
    End Property
    Public Property idTpoInmueble() As Int32
        Get
            Return _idTpoInmueble
        End Get
        Set(ByVal value As Int32)
            _idTpoInmueble = value
        End Set
    End Property
    Public Property descTpoInmueble() As String
        Get
            Return _descTpoInmueble
        End Get
        Set(ByVal value As String)
            _descTpoInmueble = value
        End Set
    End Property
    Public Property nroInmueble() As String
        Get
            Return _nroInmueble
        End Get
        Set(ByVal value As String)
            _nroInmueble = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property
#End Region

#Region "           Propiedades Avanzadas           "
    Public ReadOnly Property Inmueble() As String
        Get
            Return nomEdiMzn & " - " & _
                   descTpoInmueble & " - " & _
                   nomModelo & " - " & _
                   nroInmueble
            'Return EunidInmobiliarias.EdificioTpoInmuebleModeloInmueble
        End Get
    End Property
    
#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idAdicional As Int32, ByVal idConceptoAdicional As Int32)
        Me.idAdicional = idAdicional
        Me.idConceptoAdicional = idConceptoAdicional
    End Sub
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idCliente As Int32, ByVal idAdicional As Int32, _
                   ByVal idConceptoAdicional As Int32, ByVal descConceptoAdicional As String, ByVal idUndInmob As Int32, _
                   ByVal idEdiMzn As Int32, ByVal nomEdiMzn As String, ByVal idModelo As Int32, ByVal nomModelo As String, _
                   ByVal idTpoInmueble As Int32, ByVal descTpoInmueble As String, ByVal nroInmueble As String, _
                   ByVal montoTotalAdiconal As Decimal, ByVal idMoneda As Int32, ByVal descMoneda As String, _
                   ByVal nroCuotas As Int32, ByVal fchSolicitada As String, ByVal fchAprobada As String, _
                   ByVal nroPresupuesto As String, ByVal descripcion As String)
        'ByVal dcmntoEscaneado As String,
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idCliente = idCliente
        Me.idAdicional = idAdicional
        Me.idConceptoAdicional = idConceptoAdicional
        Me.descConceptoAdicional = descConceptoAdicional
        Me.idUndInmob = idUndInmob
        Me.idEdiMzn = idEdiMzn
        Me.nomEdiMzn = nomEdiMzn
        Me.idModelo = idModelo
        Me.nomModelo = nomModelo
        Me.idTpoInmueble = idTpoInmueble
        Me.descTpoInmueble = descTpoInmueble
        Me.nroInmueble = nroInmueble
        Me.montoTotalAdiconal = montoTotalAdiconal
        Me.idMoneda = idMoneda
        Me.descMoneda = descMoneda
        Me.nroCuotas = nroCuotas
        Me.fchSolicitada = fchSolicitada
        Me.fchAprobada = fchAprobada
        Me.nroPresupuesto = nroPresupuesto
        'Me.dcmntoEscaneado = dcmntoEscaneado
        Me.descripcion = descripcion
    End Sub

    '-------     CLIENTES CON ADICIONALES   --------'
    Public Sub New(ByVal correlativo As Int64, ByVal idCliente As Int32, ByVal idTpoDcmto As Int32, _
                   ByVal descTpoDcmto As String, ByVal nroDocumento As String, ByVal nombre As String, _
                   ByVal apePaterno As String, ByVal apeMaterno As String, ByVal telefonoFijo As String, _
                   ByVal email As String, ByVal idUbigeo As String, ByVal departamento As String, _
                   ByVal provincia As String, ByVal distrito As String, ByVal direccion As String, _
                   ByVal razonSocial As String, ByVal telefonoCelular As String, ByVal puesto As String)
        'Me.correlativo = correlativo
        'Me.idCliente = idCliente
        'Me.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        'Me.nombre = nombre
        'Me.nroDocumento = nroDocumento
        'Me.apePaterno = apePaterno
        'Me.apeMaterno = apeMaterno
        'Me.telefonoFijo = telefonoFijo
        'Me.email = email
        'Me.Eubigeo = New Eubigeo(idUbigeo, departamento, provincia, distrito)
        'Me.direccion = direccion
        'Me.razonSocial = razonSocial
        'Me.telefonoCelular = telefonoCelular
        'Me.puesto = puesto
    End Sub
    '---------------------------------------------------------------'
#End Region

End Class
